perm filename MISMAC.POX[POX,WD]3 blob
sn#403847 filedate 1978-12-08 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 \|\\ Define Brick Character
C00004 ENDMK
C⊗;
\|\\; Define Brick Character
\;
\⊂'000040;\; VERREM - REM's syntax for defining macros with args
\;
\; Epsilon and Lambda Setting Macro
\;
\8EPSILONLAMBDASET(EPS,LAM)[\←=⊗EPS⊗;\ε\←=⊗LAM⊗;\λ\N]\;
\ ;\; set ε to EPS and λ to LAM
\;
\;
\; Paragraph Macro
\;
\∞PARA[\J ]\; justify paragraph
\;
\;
\; Font Selection Macros
\;
\8DF(STR)[\#\F3⊗STR⊗\G]\; font for defined terms
\;
\8EM(STR)[\#\F2⊗STR⊗\G]\; font for emphasis
\;
\8FW(STR)[\#\F2⊗STR⊗\G]\; font for foreign words
\;
\8NM(STR)[\#\F2⊗STR⊗\G]\; font for numeric terms
\;
\8VE(STR)[\#\F3⊗STR⊗\G]\; font for vectors
\;
\8SC(STR)[\#\F9⊗STR⊗\G]\; script font
\;
\8ORD(STR)[\!JSUP(⊗STR⊗);]\; ordinal notation
\;
\;
\; Overline Macro
\;
\8OL(STR)[\P\←=0;\-h\-=2;\[∀=2;⊗STR⊗\]\p]\;
\;
\;
\; Superscript and Subscript Macros
\;
\8JSUB(A)[\P\#\←h\/=2;\Q,\¬,\→,\F6⊗A⊗\q,\G\p]\;
\;
\8JSUP(A)[\P\#\←h\/=2;\Q,\+,\→,\F6⊗A⊗\q,\G\p]\;
\;
\;
\; Permutation Macro
\;
\8PERM5(1,2,3,4,5)[(1→⊗1⊗,2→⊗2⊗,3→⊗3⊗,4→⊗4⊗,5→⊗5⊗)]\;
\;
\; Combination Macro
\;
\8COMBS(N,K)[\!JSUB(⊗N⊗);\f5C\!JSUB(⊗K⊗);]\;
\;
\; Summation Macro
\;
\8SIGMA(INDEX,SUMMAND)[\fCS\!JSUB(⊗INDEX⊗);⊗SUMMAND⊗]\;
\;